home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / basic / ReqAttDevBas.lha / LibTest.bas < prev    next >
BASIC Source File  |  2002-06-02  |  2KB  |  60 lines
  1. ' *********************************************************************
  2. '           LibTest.c by Jaca/D-CAPS -- All Rights Reserved
  3. '
  4. '                 C to HBASIC conversion 1.0 (1.6.02)
  5. '               by Dámaso D. Estévez <ast_dde@yahoo.es>
  6. '              AmiSpaTra - http://www.arrakis.es/~amidde/
  7.  
  8. '              This example opens a ReqAttack request...
  9. '     if the StackAttack package isn't installed in your machine,
  10. '             this program will open an AmigaOS' request.
  11. '
  12. '              Este ejemplo abre una petición ReqAttack...
  13. '            si este paquete no estuviese instalado abriría
  14. '            simplemente una petición del sistema operativo.
  15. ' *********************************************************************
  16.  
  17.  
  18. REM $include intuition.bh
  19. REM $include reqattack.bh
  20. REM $include exec.bh
  21.  
  22. '           Allocating struct memory (easy way, but dangerous)
  23. ' Reservando memoria para las estructuras (método fácil, pero peligroso)
  24. ' ----------------------------------------------------------------------
  25. es$  = STRING$(EasyStruct_sizeof%,CHR$(0))
  26. da$  = STRING$(DeveloperAttack_sizeof%,CHR$(0))
  27.  
  28. LIBRARY OPEN "reqattack.library",NULL&
  29.  
  30. PRINT "lib opened!"
  31.  
  32. '      Filling some EasyStruct struct's fields
  33. ' Rellenando algunos campos de la estructura EasyStruct
  34. ' -----------------------------------------------------
  35. POKEL SADD(es$)+es_StructSize%, EasyStruct_sizeof%
  36. POKEL SADD(es$)+es_Title%, _
  37.       SADD("A silly requester"+CHR$(0))
  38. POKEL SADD(es$)+es_TextFormat%, _
  39.       SADD("this is just a simple test"+CHR$(10)+"of my new reqattack.library!"+CHR$(0))
  40. POKEL SADD(es$)+es_GadgetFormat%, _
  41.       SADD("Alright|Nope|Zure"+CHR$(0))
  42.  
  43. '       Filling some DeveloperAttack struct's fields
  44. ' Rellenado algunos campos de la estructura DeveloperAttack
  45. ' ---------------------------------------------------------
  46. POKEL SADD(da$)+da_Logo%, SADD("Logos/ic.NoRam"+CHR$(0))
  47. POKEW SADD(da$)+da_StartButton%, 1%
  48.  
  49. '   Showing requester
  50. ' Mostrando la petición
  51. ' ---------------------
  52. PRINT "displaying..."
  53.  
  54. dummy& = ExtendedRequestArgs&(0,SADD(es$),0,SADD(da$),0)
  55. PRINT "returned";dummy&
  56.  
  57. LIBRARY CLOSE "reqattack.library"
  58.  
  59. END
  60.